home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / logout.aut < prev    next >
Text File  |  1991-10-18  |  1KB  |  86 lines
  1. DO CHAT
  2. IF $800=="MANUAL" || $800=="M"
  3.  CMD D "$943.LOG"
  4.  ECHO "\r^Gマクロを一時停止します  再開はＦ１０を押して下さい＞"
  5.  PAUSE
  6.  CMD D
  7. ENDIF
  8.  
  9. IF (($940=="土" || $729=="毎")|| $729==$940) || ($729==$941 || $729==$942)
  10.  CALL BILL
  11. ENDIF
  12.  
  13. SEND "OFF\r",1
  14. SCAN "ご利用時間は、" %911 "分" %912 "秒"
  15.  
  16. LOOK
  17.  CASE "01+"
  18.   SEND "+++",1
  19.  CASE "*"
  20.   SEND "OFF\r",1
  21. FREE
  22.  
  23. WAIT "R\r",5
  24. ECHO "\r^G＜ 自動通信が無事終了しました ＞\r"
  25. SEND "ATH0\r",1
  26. WAIT "OK",2
  27.  
  28. IF %3>2
  29.  IF %3<8
  30.   %926=8
  31.  ELSE
  32.   %926=10
  33.  ENDIF
  34. ELSE
  35.  %926=10
  36. ENDIF
  37.  
  38. IF %3>22
  39.  %916=4
  40. ELSEIF %1<6
  41.  %916=4
  42. ELSE
  43.  %916=3
  44. ENDIF
  45.  
  46. IF %912>0
  47.  %911=%911+1
  48. ENDIF
  49.  
  50. %928=%911*%926        ;NIFTY_KAKIN
  51. IF %911//%916==0
  52.  %929=10*%911/%916    ;TEL_KAKIN
  53. ELSE
  54.  %929=10*(%911/%916+1)
  55. ENDIF
  56. %930=%928+%929
  57.  
  58. IF %911>=24 && %911<36
  59.  $917="この調子じゃ月末が怖いんじゃないの (~L~)"
  60. ELSEIF %911>=18 && %911<24
  61.  $917="もうちょっと早くできないかなあ (＾.＾;)"
  62. ELSEIF %911>=12 && %911<18
  63.  $917="まあまあ、といったところですね (＾_＾)"
  64. ELSEIF %911<=12
  65.  $917="なかなか俊敏ですねえ  ﾊﾟﾁﾊﾟﾁ  v(＾o＾)v"
  66. ELSE
  67.  $917="ＮＩＦＨＡＮＤをちゃんと活用しなさい！"
  68. ENDIF
  69.  
  70. ECHO "\rＮＩＦＴＹの課金：%928 円"
  71. ECHO "\r電話代(市内料金)；%929 円"
  72. ECHO "\r   合      計   ：%930 円"
  73. ECHO "\r コ  メ  ン  ト ：$917^G"
  74. EXIT
  75.  
  76. PROC BILL
  77. CMD D "$900:\\ANN\\BILL.LOG"
  78. ECHO "\r^G最後に課金を調べてみましょう ＞"
  79. SEND "GO BILL\r",1
  80. WAIT "^J＞"
  81. SEND "1\r",1
  82. WAIT "^J＞"
  83. CMD D
  84. ENDPROC
  85.  
  86.